home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / bonus.arc / COPY.LSP < prev    next >
Encoding:
Text File  |  1985-09-19  |  221 b   |  11 lines
  1. (defun copy (in out)
  2.        (setq ifp (open in "r"))
  3.        (setq ofp (open out "w"))
  4.        (while (setq s (read-line ifp))
  5.               (write-line s ofp)
  6.        )
  7.        (close ifp)
  8.        (close ofp)
  9. )
  10. 55
  11.